home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Examples / DrawShapes / MDrawShapes.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.1 KB  |  46 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. { MDrawShapes.p}
  3. { Copyright © 1986-1990 by Apple Computer, Inc. All rights reserved.}
  4.  
  5. PROGRAM DrawShapes;
  6.  
  7.   {$MC68020-}                                            { The main program must be universal code }
  8.   {$MC68881-}
  9.  
  10.     USES
  11.         { • MacApp }
  12.         UMacApp,
  13.  
  14.         { • Building Blocks }
  15.         UPrinting, UBetterFeedbackCmd, UMenu,
  16.  
  17.         { • Implementation Use }
  18.         UDrawShapes;
  19.  
  20.     VAR
  21.         gShapeApplication:    TShapeApplication;
  22.  
  23. {$S Main}
  24.  
  25.     BEGIN
  26.     InitToolBox;                                        { Essential toolbox and utilities
  27.                                                           initialization }
  28.     IF ValidateConfiguration(gConfiguration) THEN        { Make sure we can run }
  29.         BEGIN
  30.         { Continue with remainder of initialization }
  31.         InitUMacApp(10);                                { Initialize MacApp; 10 calls to MoreMasters
  32.                                                          }
  33.         InitUPrinting;                                    { Initialize the printing unit}
  34.  
  35.         InitUMenu;                                        { Initialize the graphic menus unit }
  36.  
  37.         New(gShapeApplication);                         { Allocate the Application object}
  38.         FailNil(gShapeApplication);
  39.         gShapeApplication.IShapeApplication;            { Initialize it}
  40.  
  41.         gShapeApplication.Run;                            { Run it}
  42.         END
  43.     ELSE
  44.         StdAlert(phUnsupportedConfiguration);            { Inform user we can't run. }
  45.     END.
  46.